home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_337.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  898 b   |  40 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "4" then
  9.     if field "mtmodnum" contains "79" then
  10.       play frame "5molpolyb"
  11.       abort()
  12.     else
  13.       play frame "5molpolya"
  14.       abort()
  15.     end if
  16.   end if
  17.   if field "diamodnum" contains "5" then
  18.     play frame "5molpolyb"
  19.     abort()
  20.   end if
  21.   if field "diamodnum" contains "6" then
  22.     if field "mtmodnum" contains "79" then
  23.       play frame "5molpolyb"
  24.       abort()
  25.     else
  26.       play frame "5molpolyc"
  27.       abort()
  28.     end if
  29.   end if
  30.   if field "diamodnum" contains "8" then
  31.     if field "mtmodnum" contains "79" then
  32.       play frame "5molpolyb"
  33.       abort()
  34.     else
  35.       play frame "5molpolyc"
  36.       abort()
  37.     end if
  38.   end if
  39. end
  40.